# Viewing and Checking the Created Time Series Data
SLOVAKIA_ts
sum(is.na(SLOVAKIA_ts))
library(forecast)
SLOVAKIA_ts <- tsclean(SLOVAKIA_ts)
SLOVAKIA_ts
# Identification: Plotting the Time Series Data
plot(SLOVAKIA_ts)
# Estimating the appropriate model
SLOVAKIA_ts_model <- auto.arima(SLOVAKIA_ts)
SLOVAKIA_ts_model
# Forecasting
options(max.print=1000000)
SLOVAKIA_ts_forecast <- forecast (SLOVAKIA_ts_model, level=c(95), h=288)
plot(SLOVAKIA_ts_forecast)
SLOVAKIA_ts_forecast
# Exporting
write.table(SLOVAKIA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/SLOVAKIA_TSA.csv", sep=",")
# Importing Data
SLOVENIA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AC1:AC229")
# Checking the Imported Data
View(SLOVENIA)
# Creating Time Series Data
SLOVENIA_ts <- ts(SLOVENIA, start=c(1998,1), end=c(2016,12), frequency=12)
# Viewing and Checking the Created Time Series Data
SLOVENIA_ts
sum(is.na(SLOVENIA_ts))
library(forecast)
SLOVENIA_ts <- tsclean(SLOVENIA_ts)
SLOVENIA_ts
# Identification: Plotting the Time Series Data
plot(SLOVENIA_ts)
# Estimating the appropriate model
SLOVENIA_ts_model <- auto.arima(SLOVENIA_ts)
SLOVENIA_ts_model
# Forecasting
options(max.print=1000000)
SLOVENIA_ts_forecast <- forecast (SLOVENIA_ts_model, level=c(95), h=288)
plot(SLOVENIA_ts_forecast)
SLOVENIA_ts_forecast
# Exporting
write.table(SLOVENIA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/SLOVENIA_TSA.csv", sep=",")
# Importing Data
SOUTH_AFRICA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AD1:AD229")
# Checking the Imported Data
View(SOUTH_AFRICA)
# Creating Time Series Data
SOUTH_AFRICA_ts <- ts(SOUTH_AFRICA, start=c(1998,1), end=c(2016,12), frequency=12)
# Viewing and Checking the Created Time Series Data
SOUTH_AFRICA_ts
sum(is.na(SOUTH_AFRICA_ts))
library(forecast)
SOUTH_AFRICA_ts <- tsclean(SOUTH_AFRICA_ts)
SOUTH_AFRICA_ts
# Identification: Plotting the Time Series Data
plot(SOUTH_AFRICA_ts)
# Estimating the appropriate model
SOUTH_AFRICA_ts_model <- auto.arima(SOUTH_AFRICA_ts)
SOUTH_AFRICA_ts_model
# Forecasting
options(max.print=1000000)
SOUTH_AFRICA_ts_forecast <- forecast (SOUTH_AFRICA_ts_model, level=c(95), h=288)
plot(SOUTH_AFRICA_ts_forecast)
SOUTH_AFRICA_ts_forecast
# Exporting
write.table(SOUTH_AFRICA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/SOUTH_AFRICA_TSA.csv", sep=",")
# Importing Data
SWEDEN<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AE1:AE229")
# Checking the Imported Data
View(SWEDEN)
# Creating Time Series Data
SWEDEN_ts <- ts(SWEDEN, start=c(1998,1), end=c(2016,12), frequency=12)
# Viewing and Checking the Created Time Series Data
SWEDEN_ts
sum(is.na(SWEDEN_ts))
library(forecast)
SWEDEN_ts <- tsclean(SWEDEN_ts)
SWEDEN_ts
# Identification: Plotting the Time Series Data
plot(SWEDEN_ts)
# Estimating the appropriate model
SWEDEN_ts_model <- auto.arima(SWEDEN_ts)
SWEDEN_ts_model
# Forecasting
options(max.print=1000000)
SWEDEN_ts_forecast <- forecast (SWEDEN_ts_model, level=c(95), h=288)
plot(SWEDEN_ts_forecast)
SWEDEN_ts_forecast
# Exporting
write.table(SWEDEN_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/SWEDEN_TSA.csv", sep=",")
# Importing Data
TAJIKISTAN<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AF1:AF229")
# Checking the Imported Data
View(TAJIKISTAN)
# Creating Time Series Data
TAJIKISTAN_ts <- ts(TAJIKISTAN, start=c(1998,1), end=c(2016,12), frequency=12)
# Viewing and Checking the Created Time Series Data
TAJIKISTAN_ts
sum(is.na(TAJIKISTAN_ts))
library(forecast)
TAJIKISTAN_ts <- tsclean(TAJIKISTAN_ts)
TAJIKISTAN_ts
# Identification: Plotting the Time Series Data
plot(TAJIKISTAN_ts)
# Estimating the appropriate model
TAJIKISTAN_ts_model <- auto.arima(TAJIKISTAN_ts)
TAJIKISTAN_ts_model
# Forecasting
options(max.print=1000000)
TAJIKISTAN_ts_forecast <- forecast (TAJIKISTAN_ts_model, level=c(95), h=288)
plot(TAJIKISTAN_ts_forecast)
TAJIKISTAN_ts_forecast
# Exporting
write.table(TAJIKISTAN_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/TAJIKISTAN_TSA.csv", sep=",")
# Importing Data
TURKEY<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AG1:AG229")
# Checking the Imported Data
View(TURKEY)
# Creating Time Series Data
TURKEY_ts <- ts(TURKEY, start=c(1998,1), end=c(2016,12), frequency=12)
# Viewing and Checking the Created Time Series Data
TURKEY_ts
sum(is.na(TURKEY_ts))
library(forecast)
TURKEY_ts <- tsclean(TURKEY_ts)
TURKEY_ts
# Identification: Plotting the Time Series Data
plot(TURKEY_ts)
# Estimating the appropriate model
TURKEY_ts_model <- auto.arima(TURKEY_ts)
TURKEY_ts_model
# Forecasting
options(max.print=1000000)
TURKEY_ts_forecast <- forecast (TURKEY_ts_model, level=c(95), h=288)
plot(TURKEY_ts_forecast)
TURKEY_ts_forecast
# Exporting
write.table(TURKEY_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/TURKEY_TSA.csv", sep=",")
# Importing Data
VENEZUELA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AK1:AK229")
# Checking the Imported Data
View(VENEZUELA)
# Creating Time Series Data
VENEZUELA_ts <- ts(VENEZUELA, start=c(1998,1), end=c(2016,12), frequency=12)
# Viewing and Checking the Created Time Series Data
VENEZUELA_ts
sum(is.na(VENEZUELA_ts))
library(forecast)
VENEZUELA_ts <- tsclean(VENEZUELA_ts)
VENEZUELA_ts
# Identification: Plotting the Time Series Data
plot(VENEZUELA_ts)
# Estimating the appropriate model
VENEZUELA_ts_model <- auto.arima(VENEZUELA_ts)
VENEZUELA_ts_model
# Forecasting
options(max.print=1000000)
VENEZUELA_ts_forecast <- forecast (VENEZUELA_ts_model, level=c(95), h=288)
plot(VENEZUELA_ts_forecast)
VENEZUELA_ts_forecast
# Exporting
write.table(VENEZUELA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/VENEZUELA_TSA.csv", sep=",")
# Importing Data
IRAN<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "T1:T229")
# Checking the Imported Data
View(IRAN)
# Creating Time Series Data
IRAN_ts <- ts(IRAN, start=c(1998,1), end=c(2013,08), frequency=12)
# Viewing and Checking the Created Time Series Data
IRAN_ts
sum(is.na(IRAN_ts))
library(forecast)
IRAN_ts <- tsclean(IRAN_ts)
IRAN_ts
# Identification: Plotting the Time Series Data
plot(IRAN_ts)
# Estimating the appropriate model
IRAN_ts_model <- auto.arima(IRAN_ts)
IRAN_ts_model
# Forecasting
options(max.print=1000000)
IRAN_ts_forecast <- forecast (IRAN_ts_model, level=c(95), h=328)
plot(IRAN_ts_forecast)
IRAN_ts_forecast
# Exporting
write.table(IRAN_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/IRAN_TSA.csv", sep=",")
# Creating Time Series Data
IRAN_ts <- ts(IRAN, start=c(1998,1), end=c(2013,04), frequency=12)
# Viewing and Checking the Created Time Series Data
IRAN_ts
sum(is.na(IRAN_ts))
library(forecast)
IRAN_ts <- tsclean(IRAN_ts)
IRAN_ts
# Identification: Plotting the Time Series Data
plot(IRAN_ts)
# Estimating the appropriate model
IRAN_ts_model <- auto.arima(IRAN_ts)
IRAN_ts_model
# Forecasting
options(max.print=1000000)
IRAN_ts_forecast <- forecast (IRAN_ts_model, level=c(95), h=332)
plot(IRAN_ts_forecast)
IRAN_ts_forecast
# Exporting
write.table(IRAN_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/IRAN_TSA.csv", sep=",")
# Importing Data
AUSTRALIA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "T1:T229")
# Checking the Imported Data
View(AUSTRALIA)
# Importing Data
AUSTRALIA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "C1:C264")
# Checking the Imported Data
View(AUSTRALIA)
# Creating Time Series Data
AUSTRALIA_ts <- ts(AUSTRALIA, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
AUSTRALIA_ts
sum(is.na(AUSTRALIA_ts))
library(forecast)
AUSTRALIA_ts <- tsclean(AUSTRALIA_ts)
AUSTRALIA_ts
# Identification: Plotting the Time Series Data
plot(AUSTRALIA_ts)
# Estimating the appropriate model
AUSTRALIA_ts_model <- auto.arima(AUSTRALIA_ts)
AUSTRALIA_ts_model
# Forecasting
options(max.print=1000000)
AUSTRALIA_ts_forecast <- forecast (AUSTRALIA_ts_model, level=c(95), h=364)
plot(AUSTRALIA_ts_forecast)
AUSTRALIA_ts_forecast
# Exporting
write.table(AUSTRALIA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/AUSTRALIA_TSA.csv", sep=",")
# Importing Data
BAHRAIN<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "E1:E264")
# Checking the Imported Data
View(BAHRAIN)
# Creating Time Series Data
BAHRAIN_ts <- ts(BAHRAIN, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
BAHRAIN_ts
sum(is.na(BAHRAIN_ts))
library(forecast)
BAHRAIN_ts <- tsclean(BAHRAIN_ts)
BAHRAIN_ts
# Identification: Plotting the Time Series Data
plot(BAHRAIN_ts)
# Estimating the appropriate model
BAHRAIN_ts_model <- auto.arima(BAHRAIN_ts)
BAHRAIN_ts_model
# Forecasting
options(max.print=1000000)
BAHRAIN_ts_forecast <- forecast (BAHRAIN_ts_model, level=c(95), h=364)
plot(BAHRAIN_ts_forecast)
BAHRAIN_ts_forecast
# Exporting
write.table(BAHRAIN_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/BAHRAIN_TSA.csv", sep=",")
# Importing Data
BRAZIL<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "G1:G264")
# Checking the Imported Data
View(BRAZIL)
# Creating Time Series Data
BRAZIL_ts <- ts(BRAZIL, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
BRAZIL_ts
sum(is.na(BRAZIL_ts))
library(forecast)
BRAZIL_ts <- tsclean(BRAZIL_ts)
BRAZIL_ts
# Identification: Plotting the Time Series Data
plot(BRAZIL_ts)
# Estimating the appropriate model
BRAZIL_ts_model <- auto.arima(BRAZIL_ts)
BRAZIL_ts_model
# Forecasting
options(max.print=1000000)
BRAZIL_ts_forecast <- forecast (BRAZIL_ts_model, level=c(95), h=364)
plot(BRAZIL_ts_forecast)
BRAZIL_ts_forecast
# Exporting
write.table(BRAZIL_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/BRAZIL_TSA.csv", sep=",")
# Importing Data
CANADA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "I1:I264")
# Checking the Imported Data
View(CANADA)
# Creating Time Series Data
CANADA_ts <- ts(CANADA, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
CANADA_ts
sum(is.na(CANADA_ts))
library(forecast)
CANADA_ts <- tsclean(CANADA_ts)
CANADA_ts
# Identification: Plotting the Time Series Data
plot(CANADA_ts)
# Estimating the appropriate model
CANADA_ts_model <- auto.arima(CANADA_ts)
CANADA_ts_model
# Forecasting
options(max.print=1000000)
CANADA_ts_forecast <- forecast (CANADA_ts_model, level=c(95), h=364)
plot(CANADA_ts_forecast)
CANADA_ts_forecast
# Exporting
write.table(CANADA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/CANADA_TSA.csv", sep=",")
# Importing Data
INDIA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "R1:R264")
# Checking the Imported Data
View(INDIA)
# Creating Time Series Data
INDIA_ts <- ts(INDIA, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
INDIA_ts
sum(is.na(INDIA_ts))
library(forecast)
INDIA_ts <- tsclean(INDIA_ts)
INDIA_ts
# Identification: Plotting the Time Series Data
plot(INDIA_ts)
# Estimating the appropriate model
INDIA_ts_model <- auto.arima(INDIA_ts)
INDIA_ts_model
# Forecasting
options(max.print=1000000)
INDIA_ts_forecast <- forecast (INDIA_ts_model, level=c(95), h=364)
plot(INDIA_ts_forecast)
INDIA_ts_forecast
# Exporting
write.table(INDIA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/INDIA_TSA.csv", sep=",")
# Importing Data
INDONESIA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "S1:S264")
# Checking the Imported Data
View(INDONESIA)
# Creating Time Series Data
INDONESIA_ts <- ts(INDONESIA, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
INDONESIA_ts
sum(is.na(INDONESIA_ts))
library(forecast)
INDONESIA_ts <- tsclean(INDONESIA_ts)
INDONESIA_ts
# Identification: Plotting the Time Series Data
plot(INDONESIA_ts)
# Estimating the appropriate model
INDONESIA_ts_model <- auto.arima(INDONESIA_ts)
INDONESIA_ts_model
# Forecasting
options(max.print=1000000)
INDONESIA_ts_forecast <- forecast (INDONESIA_ts_model, level=c(95), h=364)
plot(INDONESIA_ts_forecast)
INDONESIA_ts_forecast
# Exporting
write.table(INDONESIA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/INDONESIA_TSA.csv", sep=",")
# Importing Data
NORWAY<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "X1:X264")
# Checking the Imported Data
View(NORWAY)
# Importing Data
NORWAY<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "Y1:Y264")
# Checking the Imported Data
View(NORWAY)
# Creating Time Series Data
NORWAY_ts <- ts(NORWAY, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
NORWAY_ts
sum(is.na(NORWAY_ts))
library(forecast)
NORWAY_ts <- tsclean(NORWAY_ts)
NORWAY_ts
# Identification: Plotting the Time Series Data
plot(NORWAY_ts)
# Estimating the appropriate model
NORWAY_ts_model <- auto.arima(NORWAY_ts)
NORWAY_ts_model
# Forecasting
options(max.print=1000000)
NORWAY_ts_forecast <- forecast (NORWAY_ts_model, level=c(95), h=364)
plot(NORWAY_ts_forecast)
NORWAY_ts_forecast
# Exporting
write.table(NORWAY_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/NORWAY_TSA.csv", sep=",")
# Importing Data
RUSSIA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AA1:AA264")
# Checking the Imported Data
View(RUSSIA)
# Creating Time Series Data
RUSSIA_ts <- ts(RUSSIA, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
RUSSIA_ts
sum(is.na(RUSSIA_ts))
library(forecast)
RUSSIA_ts <- tsclean(RUSSIA_ts)
RUSSIA_ts
# Identification: Plotting the Time Series Data
plot(RUSSIA_ts)
# Estimating the appropriate model
RUSSIA_ts_model <- auto.arima(RUSSIA_ts)
RUSSIA_ts_model
# Forecasting
options(max.print=1000000)
RUSSIA_ts_forecast <- forecast (RUSSIA_ts_model, level=c(95), h=364)
plot(RUSSIA_ts_forecast)
RUSSIA_ts_forecast
# Exporting
write.table(RUSSIA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/RUSSIA_TSA.csv", sep=",")
# Importing Data
UAE<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AH1:AH264")
# Checking the Imported Data
View(UAE)
# Creating Time Series Data
UAE_ts <- ts(UAE, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
UAE_ts
sum(is.na(UAE_ts))
library(forecast)
UAE_ts <- tsclean(UAE_ts)
UAE_ts
# Identification: Plotting the Time Series Data
plot(UAE_ts)
# Estimating the appropriate model
UAE_ts_model <- auto.arima(UAE_ts)
UAE_ts_model
# Forecasting
options(max.print=1000000)
UAE_ts_forecast <- forecast (UAE_ts_model, level=c(95), h=364)
plot(UAE_ts_forecast)
UAE_ts_forecast
# Exporting
write.table(UAE_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/UAE_TSA.csv", sep=",")
# Importing Data
USA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AJ1:AJ264")
# Checking the Imported Data
View(USA)
# Creating Time Series Data
USA_ts <- ts(USA, start=c(1998,1), end=c(2018,12), frequency=12)
# Viewing and Checking the Created Time Series Data
USA_ts
sum(is.na(USA_ts))
library(forecast)
USA_ts <- tsclean(USA_ts)
USA_ts
# Identification: Plotting the Time Series Data
plot(USA_ts)
# Estimating the appropriate model
USA_ts_model <- auto.arima(USA_ts)
USA_ts_model
# Forecasting
options(max.print=1000000)
USA_ts_forecast <- forecast (USA_ts_model, level=c(95), h=364)
plot(USA_ts_forecast)
USA_ts_forecast
# Exporting
write.table(USA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/USA_TSA.csv", sep=",")
# Identification: Plotting the Time Series Data
plot(USA_ts)
# Importing Data
USA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AJ1:AJ264")
# Checking the Imported Data
View(USA)
# Creating Time Series Data
USA_ts <- ts(USA, start=c(1998,1), end=c(2018,5), frequency=12)
# Viewing and Checking the Created Time Series Data
USA_ts
sum(is.na(USA_ts))
library(forecast)
USA_ts <- tsclean(USA_ts)
USA_ts
# Identification: Plotting the Time Series Data
plot(USA_ts)
# Estimating the appropriate model
USA_ts_model <- auto.arima(USA_ts)
USA_ts_model
# Forecasting
options(max.print=1000000)
USA_ts_forecast <- forecast (USA_ts_model, level=c(95), h=371)
plot(USA_ts_forecast)
USA_ts_forecast
# Exporting
write.table(USA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/USA_TSA.csv", sep=",")
# Importing Data
CHINA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "AJ1:AJ264")
# Checking the Imported Data
View(CHINA)
# Importing Data
CHINA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "G1:G264")
# Checking the Imported Data
View(CHINA)
# Importing Data
CHINA<- read_excel("C:/users/Biniam/Desktop/Documents/Academic/Thesis/Analysis Folder/Excel Files/Aluminium/Aluminium.xlsx",sheet = "Sheet1", range = "J1:J264")
# Checking the Imported Data
View(CHINA)
# Creating Time Series Data
CHINA_ts <- ts(CHINA, start=c(1998,1), end=c(2019,10), frequency=12)
# Viewing and Checking the Created Time Series Data
CHINA_ts
sum(is.na(CHINA_ts))
library(forecast)
CHINA_ts <- tsclean(CHINA_ts)
CHINA_ts
# Identification: Plotting the Time Series Data
plot(CHINA_ts)
# Estimating the appropriate model
CHINA_ts_model <- auto.arima(CHINA_ts)
CHINA_ts_model
# Forecasting
options(max.print=1000000)
CHINA_ts_forecast <- forecast (CHINA_ts_model, level=c(95), h=254)
plot(CHINA_ts_forecast)
CHINA_ts_forecast
# Exporting
write.table(CHINA_ts_forecast, file="/users/Biniam/Desktop/Documents/Academic/Thesis/Result Folder/TSA Results/Excel Files/From R/Aluminium/CHINA_TSA.csv", sep=",")
